home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
text
/
show
/
hzv2_0b.lha
/
hzv2.0b
/
rexx
/
ShowHZ.vlt
Wrap
Text File
|
1995-05-26
|
1KB
|
39 lines
/*****************************************************************************
*** ShowHZ.vlt -- convert current screen contents into chinese (HZView)
*****************************************************************************/
NL = '0A'x /* newline character */
tag = 'rt_pubscrname=VLT'
HZVdir = 'TEMP:HZV/'
Portname = HZV.1
CurrentLine = ""
filename = "T:vlt_HZVbuf"
/* make sure HZV is already running */
if ~showlist('P','HZV.1') then do
address command 'requestchoice "ShowHZ.vlt" "You must start HZV first!!!" ok'
exit 0
end
"activate next" /* switch to another screen */
/* save current cursor position */
"extract x"; CursorX = vlt.x
"extract y"; CursorY = vlt.y
/* make sure we start with non-empty line */
do y=1 while CurrentLine = ""
"movecursor 1 "y
"extract reviewlineatcursor"; CurrentLine = vlt.reviewlineatcursor
end
"review r" "'"CurrentLine"'" /* set search line to current line */
"review s b" /* select from search line (current line) to bottom */
"review a "filename /* save to a file */
"movecursor "CursorX CursorY /* restore old cursor position */
address HZV.1 'open 7 'filename /* show the page contents in chinese */
/* tell user file is ready */
"message (flip screen to see CHINESE!)"
"delay 1"
"message"
exit(0)